Celeste Thesis - HOBO Data

HOBO MX20L - Tapir Valley Wetland Data

# packages
library(plotly)

## Loading required package: ggplot2

## 
## Attaching package: 'plotly'

## The following object is masked from 'package:ggplot2':
## 
##     last_plot

## The following object is masked from 'package:stats':
## 
##     filter

## The following object is masked from 'package:graphics':
## 
##     layout

library(ggplot2)
library(knitr)
library(readxl)

#HOBO 1 - 22304971 | Area Amplexo | Date Installed: 2025-06-14 | Data Range: 2025-07-19 16:30:00 to 2026-01-03 11:00:00

hobo1_raw <- read_xlsx("/Users/valeriaaspinall/Desktop/UGA Thesis Project /R Work - Thesis/Celeste Thesis/hobo_data/22304971 2026-01-03 12_04_16 EST (Data CST).xlsx")
hobo1_clean <- na.omit(hobo1_raw) #remove the NA rows, no water level values due to compensation overlap 

#HOBO 2 - 22339438 | Espejo de Agua | Date Installed: 2025-07-15 | Data Range: 2025-07-19 16:45:00 to 2026-01-03 10:30:00

hobo2_raw <- read_xlsx("/Users/valeriaaspinall/Desktop/UGA Thesis Project /R Work - Thesis/Celeste Thesis/hobo_data/22339438 2026-01-03 11_39_58 EST (Data CST).xlsx")
hobo2_clean <- na.omit(hobo2_raw) #remove the NA rows, no water level values due to compensation overlap 

#HOBO 3 - 22339387 | Plataforma 2 | Date Installed: 2025-07-03 | Data Range: 2025-07-19 17:00:00 to 2026-01-03 10:00:00

hobo3_raw <- read_xlsx("/Users/valeriaaspinall/Desktop/UGA Thesis Project /R Work - Thesis/Celeste Thesis/hobo_data/22339387 2026-01-03 11_06_50 EST (Data CST).xlsx")
hobo3_clean <- na.omit(hobo3_raw) #remove the NA rows, no water level values due to compensation overlap 

#HOBO 4 - 22339440 | Panal Avispas | Date Installed: 2025-07-15 | Data Range: 2025-07-19 16:45:00 to 2026-01-03 10:30:00

hobo4_raw <- read_xlsx("/Users/valeriaaspinall/Desktop/UGA Thesis Project /R Work - Thesis/Celeste Thesis/hobo_data/22339440 2026-01-03 10_40_54 EST (Data CST).xlsx")
hobo4_clean <- na.omit(hobo4_raw) #remove the NA rows, no water level values due to compensation overlap 

#HOBO 5 - 22339439 | Canal Profundo | Date Installed: 2025-07-31 | Data Range: 2025-07-31 12:00:00 to 2025-10-23 11:15:00

hobo5_raw <- read_xlsx("/Users/valeriaaspinall/Desktop/UGA Thesis Project /R Work - Thesis/Celeste Thesis/hobo_data/22339439 2025-10-23 13_19_35 EDT (Data CST).xlsx")
hobo5_clean <- na.omit(hobo5_raw) #remove the NA rows, no water level values due to compensation overlap 

HOBO MX20L Placement - Map Image

Plotly - Water Level Data (m)

figall_HOBO_wl <- plot_ly(width = 900, height = 500) %>%
  # Add HOBO#1
  add_trace(data = hobo1_clean, x = ~`Date-Time (CST)`, y = ~`Water Level , m`, 
            name = 'HOBO Logger 1', type = 'scatter', mode = 'lines',
            line = list(width = 0.8)) %>%
  # Add HOBO#2
  add_trace(data = hobo2_clean, x = ~`Date-Time (CST)`, y = ~`Water Level , m`,
            name = 'HOBO Logger 2', type = 'scatter', mode = 'lines',
            line = list(width = 0.8)) %>%
  # Add HOBO#3
  add_trace(data = hobo3_clean, x = ~`Date-Time (CST)`, y = ~`Water Level , m`, 
            name = 'HOBO Logger 3', type = 'scatter', mode = 'lines',
            line = list(width = 0.8)) %>%
  # Add HOBO#4
  add_trace(data = hobo4_clean, x = ~`Date-Time (CST)`, y = ~`Water Level , m`, 
            name = 'HOBO Logger 4', type = 'scatter', mode = 'lines',
            line = list(width = 0.8)) %>%
  # Add HOBO#5
  add_trace(data = hobo5_clean, x = ~`Date-Time (CST)`, y = ~`Water Level , m`,
            name = 'HOBO Logger 5', type = 'scatter', mode = 'lines',
            line = list(width = 0.8)) %>%
  # Labelling the graph 
  layout(title = list(
    text = "Water Level Data - Tapir Valley's Wetland",
    y = 2),
         xaxis = list(title = "Date and Time"),
         yaxis = list(title = "Water Level (m)"), 
    margin = list(b= 150),
    annotations = list(x = 'center', y = -0.3, 
                            text = "Figure 1: Combined HOBO MX20L Water Level Data from Tapir Valleys' Wetland",
                       showarrow = F, xref='paper', yref='paper', 
                            xanchor='center', yanchor='center',
                            font = list(size = 12)))

figall_HOBO_wl